home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / irssi / scripts / buf.pl < prev    next >
Encoding:
Perl Script  |  2006-05-02  |  3.6 KB  |  123 lines
  1. use strict;
  2. use vars qw($VERSION %IRSSI);
  3.  
  4. use Irssi qw(command signal_add signal_add_first active_win
  5.              settings_get_str settings_get_bool channels windows
  6.          settings_add_str settings_add_bool get_irssi_dir
  7.          window_find_refnum signal_stop);
  8. $VERSION = '2.13';
  9. %IRSSI = (
  10.     authors    => 'Juerd',
  11.     contact    => 'juerd@juerd.nl',
  12.     name    => 'Scroll buffer restorer',
  13.     description    => 'Saves the buffer for /upgrade, so that no information is lost',
  14.     license    => 'Public Domain',
  15.     url        => 'http://juerd.nl/irssi/',
  16.     changed    => 'Mon May 13 19:41 CET 2002',
  17.     changes    => 'Severe formatting bug removed * oops, I ' .
  18.                    'exposed Irssi to ircII foolishness * sorry ' .
  19.            '** removed logging stuff (this is a fix)',
  20.     note1    => 'This script HAS TO BE in your scripts/autorun!',
  21.     note2    => 'Perl support must be static or in startup',
  22. );
  23.  
  24. # Q: How can I get a very smooth and clean upgrade?
  25. #
  26. # A: /set -clear upgrade_separator
  27. #    /set upgrade_suppress_join ON (default)
  28. #    /set channel_sync OFF
  29.  
  30. # Q: Can I use color in the upgrade_separator?
  31. # Q: Is it possible to save my command history?
  32. # Q: Can I prevent the screen from blinking?
  33. # Q: Can you make it faster?
  34. #
  35. # A: Probably not, but if you can do it, tell me how.
  36.  
  37. use Irssi::TextUI;
  38. use Data::Dumper;
  39.  
  40. my %suppress;
  41.  
  42. sub upgrade {
  43.     open BUF, sprintf('>%s/scrollbuffer', get_irssi_dir) or die $!;
  44.     print BUF join("\0", map $_->{server}->{address} . $_->{name}, channels), "\n";
  45.     for my $window (windows) {
  46.     next unless defined $window;
  47.     next if $window->{name} eq 'status';
  48.     my $view = $window->view;
  49.     my $line = $view->get_lines;
  50.     my $lines  = 0;
  51.     my $buf = '';
  52.     if (defined $line){
  53.         {
  54.         $buf .= $line->get_text(1) . "\n";
  55.         $line = $line->next;
  56.         $lines++;
  57.         redo if defined $line;
  58.         }
  59.     }
  60.     printf BUF "%s:%s\n%s", $window->{refnum}, $lines, $buf;
  61.     }
  62.     close BUF;
  63.     unlink sprintf("%s/sessionconfig", get_irssi_dir);
  64.     command 'layout save';
  65.     command 'save';
  66. }
  67.  
  68. sub restore {
  69.     open BUF, sprintf('<%s/scrollbuffer', get_irssi_dir) or die $!;
  70.     my @suppress = split /\0/, <BUF>;
  71.     if (settings_get_bool 'upgrade_suppress_join') {
  72.     chomp $suppress[-1];
  73.     @suppress{@suppress} = (2) x @suppress;
  74.     }
  75.     active_win->command('^window scroll off');
  76.     while (my $bla = <BUF>){
  77.     chomp $bla;
  78.     my ($refnum, $lines) = split /:/, $bla;
  79.     next unless $lines;
  80.     my $window = window_find_refnum $refnum;
  81.     unless (defined $window){
  82.         <BUF> for 1..$lines;
  83.         next;
  84.     }
  85.     my $view = $window->view;
  86.     $view->remove_all_lines();
  87.     $view->redraw();
  88.     my $buf = '';
  89.     $buf .= <BUF> for 1..$lines;
  90.     my $sep = settings_get_str 'upgrade_separator';
  91.     $sep .= "\n" if $sep ne '';
  92.     $window->gui_printtext_after(undef, MSGLEVEL_CLIENTNOTICE, "$buf\cO$sep");
  93.     $view->redraw();
  94.     }
  95.     active_win->command('^window scroll on');
  96.     active_win->command('^scrollback end');
  97. }
  98.  
  99. sub suppress {
  100.     my ($first, $second) = @_;
  101.     return
  102.     unless scalar keys %suppress
  103.     and settings_get_bool 'upgrade_suppress_join';
  104.     my $key = $first->{address} . 
  105.     (grep { (s/^://, /^[#!+&]/) } split ' ', $second)[0];
  106.     if (exists $suppress{$key} and $suppress{$key}--) {
  107.     signal_stop();
  108.     delete $suppress{$key} unless $suppress{$key};
  109.     }
  110. }
  111.  
  112. settings_add_str  'buffer', 'upgrade_separator'     => '=Upgrade=';
  113. settings_add_bool 'buffer', 'upgrade_suppress_join' => 1;
  114.  
  115. signal_add_first 'session save'    => 'upgrade';
  116. signal_add_first 'session restore' => 'restore';
  117. signal_add       'event 366'       => 'suppress';
  118. signal_add       'event join'      => 'suppress';
  119.  
  120. unless (-f sprintf('%s/scripts/autorun/buf.pl', get_irssi_dir)) {
  121.     Irssi::print('PUT THIS SCRIPT IN ~/.irssi/scripts/autorun/ BEFORE /UPGRADING!!');
  122. }
  123.